home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / FILES.BAS < prev    next >
BASIC Source File  |  1995-12-02  |  516b  |  16 lines
  1.  
  2.     'the array used by the files command must already exist
  3.     dim info$(1, 1)
  4.  
  5.     prompt "Enter a filename to find (example: dos\qbasic.exe)."; fileName$
  6.     files "c:\", fileName$, info$(
  7.  
  8.     if val(info$(0, 0)) > 0 then _
  9.         notice "file c:\" + fileName$ + " exists" _
  10.       else _
  11.         notice "file c:\" + fileName$ + " doesn't exist"
  12.  
  13.     'now display a notice reporting an error if there is one
  14.     if instr("0123456789", left$(info$(0, 0), 1)) = 0 then _
  15.         notice info$(0, 0)
  16.